cyber.net interactivo 3/inter@ivo 1996-04.iso/cybint3/bin/cybint3.exe/cybint3.DXR/00026.ls

Text File | 1996-03-21 | 1.3 KB | 51 lines

on exitFrame
  global GArray, ContCol, ContLine, Foto1, Foto2, Foto3, Foto4
  if ContCol = 1 then
    set the visible of sprite Foto1 to 0
    set aux to getAt(GArray, ContLine)
    set Foto1 to getAt(aux, ContCol)
    set the locH of sprite Foto1 to 0
    set the locV of sprite Foto1 to 0
    set the visible of sprite Foto1 to 1
  end if
  if ContCol = 2 then
    set the visible of sprite Foto2 to 0
    set aux to getAt(GArray, ContLine)
    set Foto2 to getAt(aux, ContCol)
    set the locH of sprite Foto2 to 320
    set the locV of sprite Foto2 to 0
    set the visible of sprite Foto2 to 1
  end if
  if ContCol = 3 then
    set the visible of sprite Foto3 to 0
    set aux to getAt(GArray, ContLine)
    set Foto3 to getAt(aux, ContCol)
    set the locH of sprite Foto3 to 320
    set the locV of sprite Foto3 to 240
    set the visible of sprite Foto3 to 1
  end if
  if ContCol = 4 then
    set the visible of sprite Foto4 to 0
    set aux to getAt(GArray, ContLine)
    set Foto4 to getAt(aux, ContCol)
    set the locH of sprite Foto4 to 0
    set the locV of sprite Foto4 to 240
    set the visible of sprite Foto4 to 1
  end if
  if ContCol < 4 then
    set ContCol to ContCol + 1
  else
    set ContCol to 1
    if ContLine < 16 then
      set ContLine to ContLine + 1
    else
      set ContLine to 1
    end if
  end if
  go(3)
end

on mouseUp
  go("logo")
end